Gapminder data
library(gapminder)
data(gapminder)
head(gapminder)
Animation with ggplotly
library("ggplot2")
library("plotly")
Registered S3 method overwritten by 'data.table':
method from
print.data.table
Registered S3 methods overwritten by 'htmltools':
method from
print.html tools:rstudio
print.shiny.tag tools:rstudio
print.shiny.tag.list tools:rstudio
Registered S3 method overwritten by 'htmlwidgets':
method from
print.htmlwidget tools:rstudio
Attaching package: ‘plotly’
The following object is masked from ‘package:ggplot2’:
last_plot
The following object is masked from ‘package:stats’:
filter
The following object is masked from ‘package:graphics’:
layout
gg <- ggplot(gapminder, aes(gdpPercap, lifeExp, color = continent)) +
geom_point(aes( size = pop,
frame = year,
ids = country,
alpha = 0.3)) +
scale_x_log10(labels = scales::dollar_format())
Warning: Ignoring unknown aesthetics: frame and ids
ggplotly(gg)
LS0tDQp0aXRsZTogIkFzc2lnbm1lbnQ6IFIgTWFya2Rvd24gUHJlc2VudGF0aW9uICYgUGxvdGx5Ig0Kb3V0cHV0OiBodG1sX25vdGVib29rDQotLS0NCg0KIyBHYXBtaW5kZXIgZGF0YQ0KDQpgYGB7cn0NCmxpYnJhcnkoZ2FwbWluZGVyKQ0KDQpkYXRhKGdhcG1pbmRlcikNCmhlYWQoZ2FwbWluZGVyKQ0KYGBgDQoNCiMgQW5pbWF0aW9uIHdpdGggZ2dwbG90bHkNCg0KYGBge3J9DQpsaWJyYXJ5KCJnZ3Bsb3QyIikNCmxpYnJhcnkoInBsb3RseSIpDQoNCmdnIDwtIGdncGxvdChnYXBtaW5kZXIsIGFlcyhnZHBQZXJjYXAsIGxpZmVFeHAsIGNvbG9yID0gY29udGluZW50KSkgKw0KICAgIGdlb21fcG9pbnQoYWVzKCBzaXplID0gcG9wLA0KICAgICAgICAgICAgICAgICAgICBmcmFtZSA9IHllYXIsDQogICAgICAgICAgICAgICAgICAgIGlkcyA9IGNvdW50cnksDQogICAgICAgICAgICAgICAgICAgIGFscGhhID0gMC4zKSkgKyANCiAgICBzY2FsZV94X2xvZzEwKGxhYmVscyA9IHNjYWxlczo6ZG9sbGFyX2Zvcm1hdCgpKQ0KDQpnZ3Bsb3RseShnZykNCmBgYA0K